home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / AIncludes / Retrace.a < prev    next >
Encoding:
Text File  |  1996-05-01  |  2.6 KB  |  136 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Retrace.a
  3. ;
  4. ;    Contains:    Vertical Retrace Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0d3 on Copland DR1
  8. ;
  9. ;    Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10. ;
  11. ;    Bugs?:        If you find a problem with this file, send the file and version
  12. ;                information (from above) and the problem description to:
  13. ;
  14. ;                    Internet:    apple.bugs@applelink.apple.com
  15. ;                    AppleLink:    APPLE.BUGS
  16. ;
  17. ;
  18.     IF &TYPE('__RETRACE__') = 'UNDEFINED' THEN
  19. __RETRACE__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  25.     include 'OSUtils.a'
  26.     ENDIF
  27.     IF FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED THEN
  28.  
  29.  
  30. ; typedef VBLTask *                        VBLTaskPtr
  31.  
  32. VBLTask                    RECORD 0
  33. qLink                     ds.l    1                ; offset: $0 (0)
  34. qType                     ds.w    1                ; offset: $4 (4)
  35. vblAddr                     ds.l    1                ; offset: $6 (6)
  36. vblCount                 ds.w    1                ; offset: $A (10)
  37. vblPhase                 ds.w    1                ; offset: $C (12)
  38. sizeof                     EQU *                    ; size:   $E (14)
  39.                         ENDR
  40. ;
  41. ; pascal QHdrPtr GetVBLQHdr(void )
  42. ;
  43.     IF ¬ GENERATINGCFM THEN
  44.         Macro
  45.         _GetVBLQHdr           &dest=(sp)
  46.             move.l            #$00000160,&dest
  47.         EndM
  48.     ELSE
  49.         IMPORT_CFM_FUNCTION GetVBLQHdr
  50.     ENDIF
  51.  
  52. ;
  53. ; pascal OSErr SlotVInstall(QElemPtr vblBlockPtr, short theSlot)
  54. ;
  55.     IF ¬ GENERATINGCFM THEN
  56.         ; parameters:
  57.         ;    vblBlockPtr     => A0
  58.         ;    theSlot         => D0
  59.         ; returns:
  60.         ;    OSErr           <= D0
  61.         _SlotVInstall:    OPWORD    $A06F
  62.     ELSE
  63.         IMPORT_CFM_FUNCTION SlotVInstall
  64.     ENDIF
  65.  
  66. ;
  67. ; pascal OSErr SlotVRemove(QElemPtr vblBlockPtr, short theSlot)
  68. ;
  69.     IF ¬ GENERATINGCFM THEN
  70.         ; parameters:
  71.         ;    vblBlockPtr     => A0
  72.         ;    theSlot         => D0
  73.         ; returns:
  74.         ;    OSErr           <= D0
  75.         _SlotVRemove:    OPWORD    $A070
  76.     ELSE
  77.         IMPORT_CFM_FUNCTION SlotVRemove
  78.     ENDIF
  79.  
  80. ;
  81. ; pascal OSErr AttachVBL(short theSlot)
  82. ;
  83.     IF ¬ GENERATINGCFM THEN
  84.         ; parameters:
  85.         ;    theSlot         => D0
  86.         ; returns:
  87.         ;    OSErr           <= D0
  88.         _AttachVBL:    OPWORD    $A071
  89.     ELSE
  90.         IMPORT_CFM_FUNCTION AttachVBL
  91.     ENDIF
  92.  
  93. ;
  94. ; pascal OSErr DoVBLTask(short theSlot)
  95. ;
  96.     IF ¬ GENERATINGCFM THEN
  97.         ; parameters:
  98.         ;    theSlot         => D0
  99.         ; returns:
  100.         ;    OSErr           <= D0
  101.         _DoVBLTask:    OPWORD    $A072
  102.     ELSE
  103.         IMPORT_CFM_FUNCTION DoVBLTask
  104.     ENDIF
  105.  
  106. ;
  107. ; pascal OSErr VInstall(QElemPtr vblTaskPtr)
  108. ;
  109.     IF ¬ GENERATINGCFM THEN
  110.         ; parameters:
  111.         ;    vblTaskPtr      => A0
  112.         ; returns:
  113.         ;    OSErr           <= D0
  114.         _VInstall:    OPWORD    $A033
  115.     ELSE
  116.         IMPORT_CFM_FUNCTION VInstall
  117.     ENDIF
  118.  
  119. ;
  120. ; pascal OSErr VRemove(QElemPtr vblTaskPtr)
  121. ;
  122.     IF ¬ GENERATINGCFM THEN
  123.         ; parameters:
  124.         ;    vblTaskPtr      => A0
  125.         ; returns:
  126.         ;    OSErr           <= D0
  127.         _VRemove:    OPWORD    $A034
  128.     ELSE
  129.         IMPORT_CFM_FUNCTION VRemove
  130.     ENDIF
  131.  
  132. ;  Custom Glue for 68k.
  133.     ENDIF
  134.     ENDIF ; __RETRACE__ 
  135.  
  136.